home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aaq.d64 / q.dat < prev    next >
Text File  |  2007-02-28  |  2KB  |  108 lines
  1. 8000 FOR J:=1 TO 2 DO //O1
  2. 8010  PENUP 
  3. 8020  FORWARD 2
  4. 8030  PENDOWN 
  5. 8040  FORWARD 15
  6. 8050  PENUP 
  7. 8060  FORWARD 5
  8. 8070  PENDOWN 
  9. 8080  FORWARD 6
  10. 8090  PENUP 
  11. 8100  BACK 28
  12. 8110  LEFT 90
  13. 8120  FORWARD 1
  14. 8130  RIGHT 90
  15. 8140 ENDFOR J
  16. 8150 //
  17. 8160 FOR J:=1 TO 2 DO // 1.5
  18. 8170  PENUP 
  19. 8180  FORWARD 2
  20. 8190  PENDOWN 
  21. 8200  FORWARD 15
  22. 8210  PENUP 
  23. 8220  FORWARD 3
  24. 8230  PENDOWN 
  25. 8240  FORWARD 6
  26. 8250  PENUP 
  27. 8260  BACK 26
  28. 8270  LEFT 90
  29. 8280  FORWARD 1
  30. 8290  RIGHT 90
  31. 8300 ENDFOR J
  32. 8310 //
  33. 8320 FOR J:=1 TO 2 DO // 2
  34. 8330  PENDOWN 
  35. 8340  FORWARD 26
  36. 8350  PENUP 
  37. 8360  BACK 26
  38. 8370  LEFT 90
  39. 8380  FORWARD 1
  40. 8390  RIGHT 90
  41. 8400 ENDFOR J
  42. 8410 //
  43. 8420 FOR J:=1 TO 18 DO // 3
  44. 8430  PENDOWN 
  45. 8440  FORWARD 11
  46. 8450  PENUP 
  47. 8460  FORWARD 6
  48. 8470  PENDOWN 
  49. 8480  FORWARD 11
  50. 8490  PENUP 
  51. 8500  BACK 28
  52. 8510  LEFT 90
  53. 8520  FORWARD 1
  54. 8530  RIGHT 90
  55. 8540 ENDFOR J
  56. 8550 //
  57. 8560 FOR J:=1 TO 8 DO // 4
  58. 8570  PENUP 
  59. 8580  FORWARD 2
  60. 8590  PENDOWN 
  61. 8600  FORWARD 9
  62. 8610  PENUP 
  63. 8620  FORWARD 6
  64. 8630  PENDOWN 
  65. 8640  FORWARD 9
  66. 8650  PENUP 
  67. 8660  BACK 26
  68. 8670  LEFT 90
  69. 8680  FORWARD 1
  70. 8690  RIGHT 90
  71. 8700 ENDFOR J
  72. 8710 //
  73. 8720 FOR J:=1 TO 2 DO // 5
  74. 8730  PENUP 
  75. 8740  FORWARD 2
  76. 8750  PENDOWN 
  77. 8760  FORWARD 24
  78. 8770  PENUP 
  79. 8780  BACK 26
  80. 8790  LEFT 90
  81. 8800  FORWARD 1
  82. 8810  RIGHT 90
  83. 8820 ENDFOR J
  84. 8830 //
  85. 8840 FOR J:=1 TO 4 DO // 6
  86. 8850  PENUP 
  87. 8860  FORWARD 4
  88. 8870  PENDOWN 
  89. 8880  FORWARD 20
  90. 8890  PENUP 
  91. 8900  BACK 24
  92. 8910  LEFT 90
  93. 8920  FORWARD 1
  94. 8930  RIGHT 90
  95. 8940 ENDFOR J
  96. 8950 //
  97. 8960 FOR J:=1 TO 2 DO // 7
  98. 8970  PENUP 
  99. 8980  FORWARD 11
  100. 8990  PENDOWN 
  101. 9000  FORWARD 6
  102. 9010  PENUP 
  103. 9020  BACK 17
  104. 9030  LEFT 90
  105. 9040  FORWARD 1
  106. 9050  RIGHT 90
  107. 9060 ENDFOR J
  108.